home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware in MacFormat / pats-virtual-office-22 / PatsUniverse2.2 / PatsUniverse2 / 00022_topDrawer.ls < prev    next >
Encoding:
Text File  |  1994-11-22  |  145 b   |  9 lines
  1. on mouseUp
  2.   go("office top drawer")
  3.   puppetSound("drawer slide")
  4.   updateStage()
  5.   repeat while soundBusy(1)
  6.   end repeat
  7.   puppetSound(0)
  8. end
  9.